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DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS FURNISHED er et ie AND wt USED AND COPLED 


THE a hr he IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 7 eee OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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3 p++ 
4 : Facility: RMS32 
1 3 Abstract: 
: ; this routine performs the sequential file organization- 
¢ ; specific open processing. 
§ : Environment: 
; star processor running starlet exec. 
; ; Author: L F Laverdure, creation date: 4-JAN-1977 
1 ; Modified By: 
§ ; v03-002 KBT0407 Keith B. Thompson 30-Nov-1982 
4; Change ifb$w_devbufsiz to ifb$l_devbufsiz and 
> 3 ifb$w_asdevbsiz to ifb$l_asdevbsiz 
5 : v03-001 KBT0142 Keith B. Thompson 20-Aug-1982 
: ; Reorganize psects 
0 : V02-015 REFORMAT Keith B. Thompson 29-Jul-1980 
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; bit offset to fop 
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Equated Symbols: 
FOP=F APSL_FOP*8 


; Own Storage: 
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-SBTTL RMSOPEN1 = SEQUENTIAL OPEN ROUTINE 


mri 
zat" 
4h 


+> 
+ 


RMSOPEN1 - 


this routine performs all of the file open functions 

that are specific to the sequential file organization, 

including: 

1. checking that write-sharing has not been specified 

¢ forcing var length and rat=FABS$B_RAT for unit record devices 
setting the bls field of the fab to the device buffer size 

4. performing magtape file positionin ; 

5. setting the two close option bits as required 

- returning to the common open routine 


o 


Calling sequence: 


entered via case branch from RMSSOPEN 
returns by jumping to RMSCOPRIN 


Input Parameters: 


R11 impure area address 
89 ifab address 
R8 fab address 


Implicit Inputs: 
the contents of the fab 
Output Parameters: 


RO status code 
R1 thru R5 destroyed 


Implicit Outputs: 

various fields in the ifab and fab are initialized 
Completion Codes: 

standard rms in particular, success and shr. 
Side Effects: 

none 
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98 133 RMSOPEN1:: 
134 STSTPT OPEN1 
6 135 
006 1 § : 
096 i ; check that record locking not required 
06 139° 
05 69 33 ~~ #«€0 008 140 BBS #IFBSV_NORECLK,(R9),2$ ; branch if no locking required 
06 €1 QOOA 141 BBC BSV_UPI,- ; error unless user providing 
67 17 AB 00C 146 FABSB_SHR(RB) ,ERRSHR | 
OOF 14 
oor 146 ; 
OF 145 ; own interlocking 
OOOF 146 ; 
OOOF 147 
QOOF 148 28: | 
OOOF 149 FAL 
OOOF 150 ; IFt 
OOOF 151; if a unit record device, force variable length record format IFt 
OOOF 126 3; and record attributes from fab | IFt 
OOOF 153; Ft 
OOOF 154 IFt 
QOOF 155 ASSUME FABSC_SEQ EQ 0 | IFt 
OOOF 156 ASSUME DEV$V_REC EQ 0 . IRt 
20 69 «£9 OOOF 157 BLBC = IFBSL-PRIM_DEV(R9),10$ ; branch if not unit rec. | IRt 
02 90 0012 158 MOVB #FABST_VAR>- ; force to variable IRt 
50 A9 0014 159 IFB$B_RFMORG(R9) IRt 
iE AB «90 0016 160 MOVB - FABSBTRAT(R8) , - ; and set rat from fab | IRE 
51 a9 0019 161 IFB$B_RAT(RY) IRE 
F8 8F 88 001B 168 BICB3 #255 © <FABSM_CR!FABSM_F TN! FABSM_PRN>,- Pit 
51 16 AB OO1E 16 FABSB_RAT(R8) 7R1 | Pul 
0021 164 | PU! 
0021 165; . : | 
0021 166 ; clear all bit carriage control 
0021 167 ; | 
0021 168 
18 13 0021 169 BEQL 10$ ; branch if none speced 
OA 51 O02 €1 0023 £170 BBC #FABSV_PRN,R1,3$ : branch if prn not speced 
03 1F AB 91 OO27 171 CMPB FABSB_RFM(R8) ,AFABSC_VFC; rfm = vfc? 
50 12 0028 122 BNEQ  ERRRAT : branch if not 
03 90 O002D 17 MOVB #FABSC_VFC,- ; change rfm to vfc 
50 Ad OO2F 17% 1FB$B_RFMORG(R 
0031 175 ASSUME FABSVFTN EQ FABSV_CR-1 
00 1 176 ASSUME FABSV~PRN EQ FABSV~CR+1 | 
50 51 03 00 EA 0031 177 38: FFS #FABSO_FIN,#3,R1,R0 ; find the first bit set 
Bose 178 CSB RO,R1 ; turn it off 
51 95 OO3A 179 TSTB R 3 another bit set 
3F 46.12 «6003C)~— «180 BNEQ ERRRAT ; branch if so 
its 181 | 
O3€ HY : : ; 
Bote 183 ; set bls equal to device buffer size 
O3E 184 ; 
bee 185 
0094 ¢9 B80 Q0 3 136 10$: MOV ITER -ASPG NBS IZERDD = 
3C AB 04e 1 F ABSW~BLS(RB) 
06 £0 Be 188 BBS #DEV$T_SPL,- : branch if device spooled 
05 69 0046 189 IFBSL_PRIM’DEV(R9) ,15$ 
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48 Ao =: BO 48 190 MOVW IFBSL_DEVBUFSIZ(R9),- ; else return real block size 
3C AB 48 «(191 FABSW_BLS(R8) 
4D 136 15$: 
4D 19 
40 194; 
04D 195 ; if device is magtape, then assume eof at max vbn, byte 0 
040 136 ; unless file is write accessed, in which case 
04D 197 ; look at nef and if clear then set ‘‘at eof"’ flag 
040 198 ; and declare eof to be at vbn 1, byte 0 
et 1% ; else utilize same positioning as for read access. 
Reed 4 | 
05 €1 004D ¢ BBC opeys ; branch if not magtape 
1F 69 O04F 0 IFBSL Vein’ DEV(R9), 50$ 
74 049 O01 CE 0051 04 MNEGL i IFBSL_EBK(R9) ; assume not write accessed 
18 €0 R238 05 BBS v$V_FOR,- : foreign will never be 
14 69 005 06 TFBS PRIN’ DEV(R9) ,20$ 
0059 07 
0059 08 : - 
0059 09 ; positioned at eof 
0059 10 ; 
0059 11 | 
0059 \¢ SSB #IFBSV_ANSI_D,(R9) 3; set ansi flag 
0c 69 30 €1 005D 1 BBC #IFBSV-WRTATC,(R9),20$ ; branch if true 
08 68 2A €0 0061 14 BBS #FABSV_NEF+FOP,(R8),20$ ; or if nef set 
74,09 01 DO 0065 215 MOVL #1, 1FBSL_EBK(R9) ; set eof to vbn 1 
0069 216 SSB #IFBSV_EOF , (RI) 3 and set at eof flg 
5C AY) =6BSS(006D Ss 217 208: CLRW IFBSW_FFB(R9) 3; always use byte 0 for mt 
0070 218 
0070 $i ; 
0070 20 ; return to common open sequence 
0070 221; 
0070 $56 
sta 223 50$: RMSSUC ; show success 
FFB8A* 31 007 $$¢ OPNRET: BRW RMSCOPRIN 
0076 25 
0076 226 ; 
0076 227 ; write sharing specified on sequential file 
0076 28; - return with error code 
0076 $3 : 
0076 0 
0076 231 ERRSHR: 
0076 3 RMSERR SHR 
05 11. 0076 ; BRB OPNRET1 
007D 4 
007D 33 ERRRAT: : 
007D 6 RMSERR RAT ; invalid rat value 
008 3 OPNRET1: 
FF7B° 31 4 $ BRW RMSCOPRIN ; and get out 
0085 40 END 
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$$.PSECT EP 
SSRMSTEST 
SSRMS_PBUGCHK 
SSRMS_ TBUGCHK 
SSRMS_UMODE 


&& 
rw 
aon 

te 
sme 
Do 


Cab b beam wmmme 


ft 


MORG 
$L“ASDEVBS1Z 
$i~ ~DEVBUFSIZ 
$L~PRIM_DEV 
“ANSI~D 


x 

VNORE CLK 

SV-WRTACC 
“FFB 


Sad 
nantes 


Pew 
< 
' 
v 
P°) 
z 
HhnHonnnhnnnnnnnnnnnnnnnnnnnnnnunn 


DOOOCOOOCOSOSOSOOSOOOOOSOSO OOOO O OOOO OOOOOOOOOOOCOO 
SOOSOSCSOSOOSOSOOSOSOOSCOOSOSOOOSOOOOSOOOOOOSOOSOSOOOSOO 


SOOOOCOOSOSOSOSOOSOSSOSOOSOOCOOOSOOSOSOSOOOOOOOOSoO 


Jecauunauaae 
Bwawawwwwwoow 
PRMAHK 7S 


22 
sooGceaaee 
rao 


ss en es ss ee en ee es FF 


P ] 
m 
a) 
2D 


00000082 
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PSECT name Allocation PSECT No. Attributes | 
- ABS, 44 4 1383) 9 ‘ 0. ) wor is USR CON ABS LCL 8 NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS1 000 s PIC USR CON REL GBL NOSHR EXE RD wart NOVEC BYTE 

$ABS$ 00000000 df >} NOPIC USR CON ABS WRT NOVEC BYTE 


LCL NOSHR EXE RD 
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! Performance indicators ! 


¢eenees secececee ane aenr eee + 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 0: 8: 0.08 8:00:01. 6 
Command processing 117 0:00: 9-83 8:08: 4.24 
Pass 1 ne 0:00:05.77 :00:19.05 
Symbol table sort 0:00:00.67 0:00:01. 
Pass 2 54 0:00:01. ; 8: 0:03.6 
Symbol table output 6 0:00:00. : B: a 
Psect synopsis output 0:00:00.04 00:00:00. 
Cross-reference output 00:00:00.00 00:00:00. 9 
Assembler run totals 45 00:00:08.51 00:00:29. 


The working set Limit was 1350 pages. 
34030 bytes (67 pages) of virtual memory were used to buffer the intermediate code. 
There were 40 pages of symbol table space allocated to hold 658 non-local and 9 local symbols. 
240 source Lines were read in Pass 1, producing 13 object records in Pass 2. 
pages of virtual memory were used to define 19 macros. 


brew were moncen cnn noc an rence aceon + 
' Macro Library statistics ! 
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Macro library name Macros defined 


_$255$DUA28: et Rd ees 10 
_8255$DUA28: (SYS.OBJJLIB.MLB; 1 
$255$DUA28:(SYSLIBIJSTARLET.MLB;2 

TOTALS (all Libraries) 15 
776 GETS were required to define 15 macros. 

There were no errors, warnings or information messages. 
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